﻿Public Class test
    Inherits System.Web.UI.Page
    Dim objDB As New DBConnect
    Dim tickCount As Integer = 0

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
    Protected Sub UpdateTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles UpdateTimer.Tick
            Dim appVar As String = Application("randomWord")
        Label1.Text = appVar
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Application("randomWord") = TextBox1.Text
    End Sub
End Class